home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 1998 November / maximum-cd-1998-11.iso / Truespace 4 / Data / PROGRAM / PROCSETS / set025 < prev    next >
Encoding:
Text File  |  1998-08-28  |  1.7 KB  |  122 lines
  1. %%BeginResource: procset Adobe_gsproperty 0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_gsproperty 8 dict dup begin put
  4. /initialize
  5. {
  6. /setgsproperty where
  7.     {
  8.     pop
  9.     }
  10.     {
  11.     userdict /Adobe_gsproperty_vars 8 dict dup begin put
  12. /stack
  13.     32 array def
  14. 0 1 stack length 1 sub
  15.     {
  16.     stack exch 10 dict put
  17.     } for
  18. /gtop 0 def
  19. /top 0 def
  20. /time 0 def
  21. /_gsave /gsave load def
  22. /_grestore /grestore load def
  23. /_grestoreall /grestoreall load def
  24. /_save /save load def
  25.     Adobe_gsproperty begin
  26.     Adobe_gsproperty
  27.         {
  28.         dup xcheck
  29.             {
  30.             bind
  31.             } if
  32.         pop pop
  33.         } forall
  34.  end
  35.  end
  36.     Adobe_gsproperty begin
  37.     } ifelse
  38. } def
  39. /terminate
  40. {
  41. currentdict Adobe_gsproperty eq
  42.     {
  43.  end
  44.     } if
  45. } def
  46. /setgsproperty
  47. {
  48. Adobe_gsproperty_vars begin
  49. stack gtop get dup length exch maxlength eq
  50.     {
  51.     stack gtop 2 copy get dup maxlength 2 mul dict copy put
  52.     } if
  53. stack gtop get
  54. 3 1 roll put
  55. end
  56. } def
  57. /getgsproperty
  58. {
  59. Adobe_gsproperty_vars begin
  60. gtop -1 -1
  61.     {
  62.     stack exch get
  63.     2 copy exch known
  64.         {
  65.         2 copy exch get /_notdef ne
  66.             {
  67.             exch get dup
  68.             exit
  69.             } if
  70.         } if
  71.     pop
  72.     } for
  73. pop
  74. end
  75. } def
  76. /gsave
  77. {
  78. Adobe_gsproperty_vars begin
  79. _gsave
  80. /gtop gtop 1 add def
  81. stack gtop get
  82. dup dup
  83.     {
  84.     pop /_notdef put dup
  85.     } forall
  86. pop pop
  87. end
  88. } def
  89. /grestore
  90. {
  91. Adobe_gsproperty_vars begin
  92. gtop top gt
  93.     {
  94.     /gtop gtop 1 sub def
  95.     } if
  96. _grestore
  97. end
  98. } def
  99. /grestoreall
  100. {
  101. Adobe_gsproperty_vars begin
  102. /gtop top def
  103. _grestoreall
  104. end
  105. } def
  106. /save
  107. {
  108. Adobe_gsproperty_vars /_save get exec
  109. Adobe_gsproperty_vars begin
  110. /gtop gtop 1 add def
  111. stack gtop get
  112. dup dup
  113.     {
  114.     pop /_notdef put dup
  115.     } forall
  116. pop pop
  117. /top gtop def
  118. end
  119. } def
  120. currentdict readonly pop end
  121. setpacking
  122. %%EndResource